home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-06_1988_-_de_Side_B.d64 / top secret (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  412b  |  11 lines
  1. 10 b=50000:t=0
  2. 20 reada:ifa=-1then40
  3. 30 pokeb+t,a:p=p+a:t=t+1:goto20
  4. 40 ifp<>8743thenprint"fehler in den datas!":end
  5. 50 printchr$(147)chr$(18);"    top secret  (c) by gerrit hepcke    "
  6. 60 new
  7. 70 data32,253,174,32,138,173,32,247,183,141,129,195,140,131,195,204
  8. 80 data129,195,208,5,169,0,141,131,195,169,1,133,250,169,8,133
  9. 90 data251,160,0,196,45,208,7,165,251,197,46,208,1,96,177,250
  10. 100 data73,0,73,0,145,250,200,208,234,230,251,76,115,195,-1
  11.